home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / create6r / frmtryco.frm (.txt) < prev    next >
Visual Basic Form  |  1999-05-23  |  3KB  |  114 lines
  1. VERSION 5.00
  2. Begin VB.Form frmtryConnect 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    Caption         =   "Try To Connect to :"
  6.    ClientHeight    =   810
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   5475
  10.    Icon            =   "frmtryConnect.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   54
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   365
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.Timer Timer1 
  17.       Interval        =   10
  18.       Left            =   120
  19.       Top             =   720
  20.    End
  21.    Begin VB.Shape Shape1 
  22.       BackColor       =   &H000000FF&
  23.       BackStyle       =   1  'Opaque
  24.       BorderWidth     =   2
  25.       Height          =   225
  26.       Left            =   240
  27.       Shape           =   3  'Circle
  28.       Top             =   315
  29.       Width           =   225
  30.    End
  31.    Begin VB.Line Line1 
  32.       BorderColor     =   &H80000009&
  33.       BorderWidth     =   3
  34.       X1              =   16
  35.       X2              =   344
  36.       Y1              =   28
  37.       Y2              =   28
  38.    End
  39.    Begin VB.Label Label1 
  40.       BackColor       =   &H80000002&
  41.       BorderStyle     =   1  'Fixed Single
  42.       Height          =   375
  43.       Left            =   150
  44.       TabIndex        =   0
  45.       Top             =   240
  46.       Width           =   5175
  47.    End
  48. Attribute VB_Name = "frmtryConnect"
  49. Attribute VB_GlobalNameSpace = False
  50. Attribute VB_Creatable = False
  51. Attribute VB_PredeclaredId = True
  52. Attribute VB_Exposed = False
  53. 'Dim TryConnect As Boolean
  54. Dim ind
  55. Dim tempconnect As Integer
  56. Private Sub Form_Load()
  57. OutSquare 0, 0, ScaleWidth - 1, ScaleHeight, Me
  58. InSquare Label1.Left, Label1.Top, Label1.Width - 1, Label1.Height, Me
  59. GetinitWaitting
  60. End Sub
  61. Public Sub GetinitWaitting()
  62. If Not TryConnect Then
  63. Caption = "Wait for Opponent..."
  64. Caption = "Try to Connect to :" & HostName
  65. End If
  66. ind = 4
  67. Timer1.Interval = 10
  68. Shape1.Left = 22
  69. tempconnect = 0
  70. Left = frmChess.Left + ((frmChess.Width - Width) / 2)
  71. Top = frmChess.Top + ((frmChess.Height - Height) / 2)
  72. End Sub
  73. Private Sub Form_Terminate()
  74. Timer1.Interval = 0
  75. 'frmChess.SockClient.Close
  76. End Sub
  77. Private Sub Timer1_Timer()
  78. On Error Resume Next
  79. If tempconnect = 1000 And frmChess.SockClient.State <> 7 Then
  80.  MsgBox "Can't establish connection"
  81.  Close
  82.  Timer1.Interval = 0: tempconnect = 0: Connected = False
  83.  frmChess.SockClient.Close
  84.  'Label2.Caption = "Start a New Game !"
  85.  Unload Me
  86.  Exit Sub
  87. If tempconnect = 800 And TryConnect Then
  88. If frmChess.SockClient.State <> 7 Then NameNIP.Connect
  89. If tempconnect = 600 And TryConnect Then
  90. If frmChess.SockClient.State <> 7 Then NameNIP.Connect
  91. If tempconnect = 400 And TryConnect Then
  92. If frmChess.SockClient.State <> 7 Then NameNIP.Connect
  93. If tempconnect = 200 And TryConnect Then
  94. If frmChess.SockClient.State <> 7 Then NameNIP.Connect
  95. If frmChess.SockClient.State = 7 Then
  96. Timer1.Interval = 0: tempconnect = 0
  97. Unload Me
  98. Exit Sub
  99. End If
  100. End If
  101. End If
  102. End If
  103. End If
  104. End If
  105. tempconnect = tempconnect + 1
  106. If Shape1.Left >= 338 Then
  107. ind = -4
  108. If Shape1.Left <= 22 Then
  109. ind = 4
  110. End If
  111. End If
  112. Shape1.Left = Shape1.Left + ind
  113. End Sub
  114.